home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
mus
/
edit
/
sfx3_00.lha
/
sfx
/
Install-SFX
next >
Wrap
Text File
|
1995-06-06
|
4KB
|
160 lines
; SoundFX ---------------------------------------------------------------------------------------------------
(MESSAGE
"\n\nWillkommen zur Installation von SoundFX 3.0!\n\n"
)
(SET @default-dest
(ASKDIR
(PROMPT "Bitte Zielverzeichnis aussuchen !\nEin Verzeichnis mit dem Namen SFX wird angelegt !")
(HELP "Hier können Sie auswählen, wohin Sie das Programm installeren möchten")
(DEFAULT @default-dest)
)
)
(MESSAGE "\n\nBitte stellen Sie sicher, daß auf der Zielpartition\n 1.0 Mb-Speicher frei ist !")
; falls nicht vorhanden, Verzeichnis anlegen ----------------------------------------------------------------
(SET @default-dest (TACKON @default-dest "SFX"))
(SET sfx-dest @default-dest)
(IF (= (EXISTS sfx-dest) 0)
(MAKEDIR sfx-dest (INFOS))
)
; Fonts kopieren --------------------------------------------------------------------------------------------
(COMPLETE 8)
(COPYFILES
(SOURCE "Fonts/")
(DEST "FONTS:")
(ALL)
)
; Libs kopieren ---------------------------------------------------------------------------------------------
(COMPLETE 12)
(COPYLIB
(SOURCE "Libs/amigaguide.library")
(DEST "LIBS:")
)
; Keyfile kopieren ------------------------------------------------------------------------------------------
(COMPLETE 17)
(SET sfxsub-dest "DEVS:keyfiles")
(IF (= (EXISTS sfxsub-dest) 0)
(MAKEDIR sfx-dest (INFOS))
)
(COPYFILES
(SOURCE "Keyfiles/SFX.key")
(DEST "DEVS:keyfiles/")
)
; Synths ----------------------------------------------------------------------------------------------------
(COMPLETE 20)
(SET sfxsub-dest (TACKON sfx-dest "Synths"))
(IF (= (EXISTS sfx-dest) 0)
(MAKEDIR sfxsub-dest (INFOS))
)
(COPYFILES
(SOURCE "Synths/")
(DEST sfxsub-dest)
(ALL)
(INFOS)
)
; Eqshapes --------------------------------------------------------------------------------------------------
(COMPLETE 48)
(SET sfxsub-dest (TACKON sfx-dest "Eqshps"))
(IF (= (EXISTS sfx-dest) 0)
(MAKEDIR sfxsub-dest (INFOS))
)
(COPYFILES
(SOURCE "Eqshps/")
(DEST sfxsub-dest)
(ALL)
(INFOS)
)
; Envelopes -------------------------------------------------------------------------------------------------
(COMPLETE 53)
(SET sfxsub-dest (TACKON sfx-dest "Envelopes"))
(IF (= (EXISTS sfx-dest) 0)
(MAKEDIR sfxsub-dest (INFOS))
)
(COPYFILES
(SOURCE "Envelopes/")
(DEST sfxsub-dest)
(ALL)
(INFOS)
)
; ARexx-Scripte ---------------------------------------------------------------------------------------------
(COMPLETE 55)
(SET sfxsub-dest (TACKON sfx-dest "Rexx"))
(COPYFILES
(SOURCE "Rexx/")
(DEST sfxsub-dest)
(ALL)
(INFOS)
)
; Guide -----------------------------------------------------------------------------------------------------
(COMPLETE 70)
(COPYFILES
(SOURCE "sfx.guide")
(DEST sfx-dest)
(INFOS)
)
(SET sfxsub-dest (TACKON sfx-dest "Guides"))
(IF (= (EXISTS sfx-dest) 0)
(MAKEDIR sfxsub-dest (INFOS))
)
(COPYFILES
(SOURCE "Guides/")
(DEST sfxsub-dest)
(ALL)
(INFOS)
)
; Versionsauswahl -------------------------------------------------------------------------------------------
(COMPLETE 80)
(SET pver
(ASKCHOICE
(PROMPT "Bitte wählen Sie die zu installierende Programmversion aus !")
(HELP "Die Version ist von Ihrer verwendeten Computerhardware abhängig !")
(CHOICES
"68000"
"68030-881"
; "68040-(881)"
)
(DEFAULT 0)
)
)
(IF (= pver 0)
(COPYFILES
(SOURCE "SFX/sfx.68000")
(DEST sfx-dest)
(NEWNAME "SoundFX")
)
)
(IF (= pver 1)
(COPYFILES
(SOURCE "SFX/sfx.68030-881")
(DEST sfx-dest)
(NEWNAME "SoundFX")
)
)
;(IF (= pver 2)
; (COPYFILES
; (SOURCE "SFX/sfx.68040-881")
; (DEST sfx-dest)
; (NEWNAME "SoundFX")
; )
;)
(COPYFILES
(SOURCE "SFX/SoundFX.info")
(DEST sfx-dest)
)
; Fertig ----------------------------------------------------------------------------------------------------
(EXIT
"\n\nSFX konnte erfolgreich installiert werden.\n"
"Bitte schlagen Sie im Handbuch nach, um zu erfahren wie das Programm bedient und gestartet wird.\n"
)